program Project1; // Zadanie 5.2

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure pole_prostokata();
var
  a, b, pole: Real; // deklaracja zmiennych lokalnych

  begin
    Writeln('Program oblicza pole prostokata');
    Writeln('Podaj bok a.');
    Readln(a);
    Writeln('Podaj bok b.');
    Readln(b);
    pole:= a*b;
    Writeln('Pole prostokata o boku a = ', a:4:2, ' i boku b = ', b:4:2);
    Writeln('wynosi ', pole:4:2,'.');
  end;

begin
  pole_prostokata(); // wywolanie procedury

  Readln; // czeka na nacisniecie klawisza ENTER
end.

